DEFINITION MODULE ExFunc;

(*                Definitionsmodul ExFunc Version 1.0                 *
 *          Copyright: K. Hartlage, Pr.Stroehen 194, 4993 Rahden      *
 * Berechnung (Ex-)tra langer (Card-)inalzahlen;                      *
 * Verbesserungen, Berichtigungen und eigene Anwendungen bitte an die *
 * obige Adresse senden                                               *)
 
FROM Excard IMPORT ExCard;

PROCEDURE ExFak(VAR facc : ExCard; f : CARDINAL);

PROCEDURE MueberN(VAR result : ExCard;m,n : CARDINAL);

PROCEDURE ExggT(VAR ggt,n0,m0 : ExCard);

PROCEDURE ExkgV(VAR kgv,n0,m0 : ExCard);

PROCEDURE ExSum(VAR sum,n : ExCard);

END ExFunc.

